home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / FORTH / H166B.ZIP / L3.ZIP / P3-28DC.SEQ < prev    next >
Encoding:
Text File  |  1990-04-06  |  201 b   |  10 lines
  1. \ Problem 3.28 by Dickson Cheng  04/06/90 14:06:25.09
  2.  
  3.  
  4. : AVERAGE       ( x1 f1 x2 f2 ... xk fk -- avg )
  5.         DEPTH 2 / >R  0 -ROT R@ 1- 0
  6.            ?DO * + -ROT LOOP
  7.         * + R> / ;
  8.  
  9.  
  10.